home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_11.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  1.4 KB  |  54 lines
  1. on prepareFrame
  2.   global nappi_sprite, y_offset
  3.   ShowAllSprites()
  4.   ClrCursorS()
  5.   WaitCursor()
  6.   mmHelpSign()
  7.   set the visible of sprite 120 to 0
  8.   set y_offset to 0
  9.   if the frame = label("newsun") then
  10.     preloadMember(member "sohoprg3" of castLib "audio")
  11.   end if
  12.   MYPreload(label("newsun"), label("ns_el"))
  13.   set the directToStage of member "sml_sun" to 0
  14.   set the directToStage of member the member of sprite 110 to 0
  15.   set the member of sprite nappi_sprite to member "pieninappi"
  16.   set the locV of sprite nappi_sprite to 490
  17.   set the blend of sprite 114 to 0
  18.   set the puppet of sprite 114 to 0
  19. end
  20.  
  21. on exitFrame
  22.   global jump_back, dire, min_duration
  23.   if the duration of the member of sprite 110 <= min_duration then
  24.     set the movieRate of sprite 110 to 1
  25.   end if
  26.   set the visible of sprite 113 to 1
  27.   set the visible of sprite 117 to 1
  28.   set the visible of sprite 118 to 1
  29.   set the visible of sprite 119 to 1
  30.   set dire to 1
  31.   set jump_back to the frame
  32.   ClrCursorS()
  33.   KasiCursor(120)
  34.   set f to 60
  35.   repeat while f < 87
  36.     KasiCursor(f)
  37.     set f to f + 1
  38.   end repeat
  39.   PlusCursor(79)
  40.   PlusCursor(80)
  41.   if (the frame >= label("newsun")) and (the frame <= label("newsun_end")) then
  42.     set f to 20
  43.     repeat while f < 70
  44.       KasiCursor(f)
  45.       set f to f + 1
  46.     end repeat
  47.     set f to 70
  48.     repeat while f < 80
  49.       PlusCursor(f)
  50.       set f to f + 1
  51.     end repeat
  52.   end if
  53. end
  54.